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ICODE DEFINITION 

Tlie first pass of the compiler generates a .1 file. Its contents are: 
00 



Variable references: 

01 +offset 

02 +of fset 

03 lev +offset 

04 com +offset 

05 reg size expr 

05 reg 

06 ??????? 

07 ??????? 
08-OB nnnnnnn 

Addressing operators: 

OC addr . « • 
OD addr . . . 
OE addr. .. 
OF +offset addr«.. 
10-13 nnnnnnn addr • • . expr* • • 

14 nnnnnnn nnnnnnn addr... 

expr • • • 

15 +nn nnnnnnn addr... 

expr • . • 

16 addr. « . 

Constants: 

17 
18-lB ####### 

IC nnn 'ABC...' 
ID nnn 'ABC. ..' 
IE nnn [1,5. .7,21] 
IF 



Global variable reference 
Local variable reference 
Intermediate level variable reference 
Common variable reference 
Register reference 

String temp 

Set temp 

1/2/4/8 byte temp 



'*' - Dereference operator 

"" - File dereference operator 

'*' - Text file dereference operator 

'.' - Record field offset 

'[]' - 1/2/4/8 byte array index 



' [ ] ' - Long array index 

'[]' - Packed array access 
'@' - Address of operator 



nil 

1/2/4/8 byte constant 

String constant 

PAOC Constant 

Set constant 

[] - Null set 



Assignment operators: 
20-23 flippable addr... expr...':»' - 1/2/4/8 byte assignment 

(* flippable is true if the assignment left hand side can be computed 



after the right hand side 

24 nnnnnnn addr. . . expr. • . 

25 nnn addr... expr... 

26 (15/3E/3F ... ) expr... 

27 nnn addr... expr... 

28 nnn nnn addr... expr... 

29 nnn addr • . . expr . • • 
2A nnn addr . . . expr . . • 



In this case, we have expr. . .addr. . . *) 

- Multiple byte assignment 

- Set assignment 

- Packed assignment 

- String assignment 

- PAOC Assignment 
=+' - Add to 

*-' - Subtract from 
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2B nnn 

2C lev isptr addr... 

2D lev 

2E lo hi expr, 

2F hi- expr. .. 



WITH field reference, level nnn 

Begin WITH statement, level nnn 

End WITH statement, level nnn 

2 Byte Range Check 

String Range Check - assignment, not index 



Data Conversion: 

30-32 expr. 
33-35 expr. 
36-37 expr. 
38-39 expr. 
3A-3B expr. 
3C-3D expr. 

3E fff expr. .. 

3F fff expr. .. 

Scalar operators: 



l->2,2->4,l->4 integer 
2->l,4->2,4->l integer 
4->8,8->4 real conversion 
4->4,4->8 Float 
4->4,8->4 Trunc 
4->4,8->4 Round 
Extract unsigned field 
Extract signed field 



40-41 


expr 


. .. expr.. 


2/4 Scalar Addition 


42-43 


expr 


. . • expr • . 


2/4 Scalar Subtraction 


44-45 


expr 


. . . expr . . 


2/4 Scalar Multplication 


46-47 


expr 


. .. expr.. 


2/4 Scalar Division 


48-49 


expr 


. .. expr.. 


2/4 Scalar Modulus 


4A-4B 


expr 




2/4 Scalar Negate 


4C-4D 


expr 




2/4 Scalar Absolute Value 


4E-4F 


expr 




2/4 Scalar Square 


50-52 


expr. 


. . . expr . . . 


1/2/4 Scalar AND 


53-55 


expr 


. . . expr . • . 


1/2/4 Scalar OR 


56-58 


expr 


• . • expr . . 


1/2/4 Scalar XOR 


59-5B 


expr. 




1/2/4 Scalar NOT 


5C-5E 


expr. 


>.. expr.. 


1/2/4 Scalar < 


5F-61 


expr 


. . . expr . . 


1/2/4 Scalar > 


62-64 


expr 


. . . expr . . . 


1/2/4 Scalar <- 


65-67 


expr. 


... expr... 


1/2/4 Scalar >- 


68-6A 


expr. 


> . • expr . . . 


1/2/4 Scalar - 


6B-6D 


expr. 


>.. expr... 


1/2/4 Scalar <> 


6E 


expr. 




Boolean NOT 


6F 


expr. 




ODD 


70-71 


expr. 


. . . expr . . . 


4/8 Real Addition 


72-73 


expr. 


. . • expr . . . 


4/8 Real Subtraction 


74-75 


expr. 


. . . expr . . . 


4/8 Real Multiplication 


76-77 


expr. 


>■. • expr... 


4/8 Real Division 


78-79 


expr. 


. • . expr . . . 


4/8 Real Modulus 


7A-7B 


expr. 


».. expr... 


4/8 Real < 


7C-7D 


expr. 


. . . expr • . . 


4/8 Real > 


7E-7F 


expr. 


... expr... 


4/8 Real <- 


80-81 


expr. 


, . • expr . . . 


4/8 Real >- 


82-83 


expr. 


> .. expr. .. 


4/8 Real - 


84-85 


expr. 


, . . expr . . . 


4/8 Real <> 


86-87 


expr. 




4/8 Real Negation 


88-89 


expr. 




4/8 Real Absolute Value 


8A-8B 
8C 


expr. 




4/8 Real Square 
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8D 
8E 
8F 

String Operators: 



90 expr. •• 


expr . . 




String < 


91 expr,.« 


expr. . 




String > 


92 expr. .. 


expr. . 




String <" 


93 expr... 


expr. e< 




String >* 


94 expr. . . 


expr . . 




String - 


95 expr... 


expr.. 




String <> 


96 nnn nnn 


expr. . 


. expr . • . 


PAOC < 


97 nnn nnn 


expr... 


. expr... 


PAOC > 


98 nnn nnn 


expr. .. 


. expr... 


PAOC <- 


99 nnn nnn 


expr. .. 


. expr . • . 


PAOC >- 


9A nnn nnn 


expr. . . 


. expr. .. 


PAOC - 


9B nnn nnn 


expr... 


, expr . . . 


PAOC <> 


9C 








9D 








9E 








9F 









Set Operators: 



AO nnn 
Al nnn 
A2 nnn 
A3 nnn 
A4 nnn 
A5 nnn 
A6 nnn 
A7 nnn 
A8 nnn 
A9 nnn 
AA nnn 
AB 
AC 
AD 
A£ 
AF 



expr. 
expr. 
expr. 
expr. 
expr. 
expr. 
expr. 
expr. 
expr. 
expr. 
nnn expr. 



expr . . 
expr. e 
expr . . 
expr • . 
expr . . 
expr . . 
expr • • 
expr. * 

expr . . 



Set 


+ 


Set 


- 


Set 


* 


IN 




Set 


<- 


Set 


>- 


Set 


m 


Set 


<> 


Singleton Set 


Set 


Range 


Adjust Set 



Procedure /Function Calls: 

BO nnnnnnn 
Bl nnnnnnn 
B2 nnn 
B3 nnn 
B4 addr. . . 
B5 addr. • . 
B6 nnn 
B7 addr. . . 
B8-BB expr . . . 

BC nnnnnnn expr . . . 



User Function Call 
User Procedure Call 
Standard Function Call 
Standard Procedure Call 
Parametric Function Call 
Parametric Procedure Call 
Make Room for Function Result 
Reference Parameter 
1/2/4/8 Byte Value Parameter 
Large Value Parameter 
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BD nnn expr, 

BE 

BF nnnnnnn 



Set Value Parameter 

Begin Parameter List 

User Function/Procedure Parameter 



Control: 



CO nnnnnnn 

CI nnnnnnn 

C2 nnnnnnn expr. . . 

C3 nnnnnnn expr... 

C4 user-no nnnnnnn 

C5 user-no nnnnnnn link-no 

C6 user-no nnnnnnn 

C7 lev link-no 

C8 expr... 



Define Internal Label 

Jump 

Jump False 

Jump True 

Define Local User Label 

Define Global User Label 

Jump to Local User Label 

Jump to Global User Label 



Case Jump 
C9 lo bound hibound elselab end lab 

lo — lab ... hi — lab Case Table - must follow case jump 
C9 1 lobound hibound elselab count 



[value, label] 
CA nnn addr . . . expr ... 

expr... expr... 
CB 
CC 

CD nnnn 

CD -1 length filename 
CE 
CF 

DO— DF 
EO— EF 
FO (In) (un) (sn) lev 

varsize prmbyts gib 



Fl (In) (un) nnnnnn lev 

F2 (en) nnn 

F3 (en) nnnnnnn 

F4 (un) textaddrA textsizeA 

globsiz2 
F5 

F6 — FD 
FE 
FF 



If expr list - must follow case jump 

FOR statement, nnn"l,2,4-size 

FOR end 

CASli: end 

Line number 

To open an include (or uses) file 



Begin Module 

(In) - 8-byte Linker name 
(un) - 8-byte User name 
(sn) - 8-byte Segment name 
lev - level (1 -global) 

varsize - Number of bytes of local variables 
prmbyts - Bytes of parameters 
gib - Global Label Flag is Bit 
Stack Expan. Flag is Bit 1 
regmask - register mask for MOVEM (DO. .SP) 
External Reference Definition 
Common Reference Definition 
Common Area Definition 

Unit File Header 



End of module 
End of file 
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PACKING INFORMATION 

Packed records are very expensive In terms of the number of bytes of 
code generated by the compiler to reference a field of a packed 
record. In general, you should avoid packing records unless there 
are many more instances of a particular record than there are 
references to it« 

Packed arrays are also code -expensive, with one exception. Packed arrays 
of char are treated as a special case, and the code associated with 
them is compact . 

To paraphrase von Neumann, anyone who needs to know the details of 
the packing algorithms is in a state of sin, but the following is 
provided for the sake of completeness. 

Elements of packed arrays are stored with multiple values per byte 
whenever more than one value can be fit into a byte. This only 
happens when the values require 4 bits or less. Values requiring 
3 bits are stored into 4 bits. 

The first value in a packed array is stored in the lowest numbered 
bit position of the lowest addressed (most significant) byte. 
Subsequent values are stored in the next available higher numbered 
bit positions within that byte. When the first byte is full, the 
same positions are used in the next higher addressed byte. Consider 
the following examples: 

a: PACKED ARRAY[1..12] OF BOOLEAN 

byte 1: bit 

I a8 I a7 I a6 I a5 I a4 i a3 I a2 I al i 



byte 2: 

I Unused I al2i all| alO| a9 | 

+ 1 1 *^ ^ 1 1 1^— -+ 

b: PACKED AilRAY[3.c8] OF 0..3 
byte 1: 



a[6] I a[5l | a[4] | a[33 | 
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c: PACKED ARRAY[0..2] OF 0..7 
or 
PACKED ARRAY[0..2] OF 0..15 



byte 2: 

Unused I a [2] 



You can use the @ operator to poke around inside any packed value 
and thereby discover what the packing algorithm (probably) is. For 
exaiople, to get the data given above, you can use a program like 
the following: 

Program Test; 
Var i: integer; 

p: '"integer; 

boolArr: packed array [l.,123 of boolean; 
Begin 

boolArr[l] :*true; (* find out where 1st bit is put *) 
for i:»2 to 12 do boolArr[i] : -false; 
p:»@boolArr; 
WriteLnCequiv word is ',p*); 

(* write the packed array as an integer *) 
End. 
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TRANSLATION FROM APPLE PASCAL TO LISA PASCAL 

Translation of Apple Pascal programs is usually not very difficult. The 
following hints may be of use to you if you find yourself saddled with 
the translation task. Thanks to Ken Friedenbach for the hints! 



MOVELEFT(Source_Buf [i] ,Dest_Buf [k],n) can be translated into: 

FOR Locall:»0 TO n-1 DO Dest_Buf [Locall+k] s-Source_Buf [Locall+i] ; 

It may be necessary to declare the local integer used as the FOR loop 
control variable. 

MOVERIGHT(Source_Buf [i] ,Dest_Buf [k] ,n) becomes : 

FOR LocalI:»n-l DOWNTO DO Dest_Buf [k+Locall] :«Source_Buf [i+Locall] ; 

FILLCHAR(Buf [i] ,n,Ch) becomes : 

FOR Locall:-0 TO n-1 DO Buf [i+Locall] :-ch; 

i:-SCAN(n,<>ch,Buf [k]) becomes: 

Locall:"0; 
IF n>0 THEN 

WHILE (LocalKn) AND (Buf [k+LocalI]»ch) DO LocalI:-LocalI+l 
ELSE 

WHILE (LocalI>n) AND (Buf [k+LocalI]-ch) DO LocalI:-LocalI-l ; 
i: "Local I; 

If SCAN is looking for »ch, just substitute Och in the loops above. 

READ ( KEYBOARD, ch) becomes: 

UNITREAD(2,ChArr,l); 
ch:»ChArr[0]; 

where chArr*packed array [0..1] of char. 

EOLN( KEYBOARD) 

can check the character read above. If ch=»CHR(13) then EOLN is true. 

KEYPRESS 

is NOT UNITBUSY(2). 
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Strings must be given a length, non-local EXITs must be replaced with GOTOs. 
Sets with negative numbers can be shifted upward to fall within O..MAXINT. 

ClearScreen and other such functions can be handled by Jim Merritt's 
CUSTOMIO unit. ClearScreen on the Lisa is presently WRITE(CHR(27),CHR(42)); 

If underbars are used in the Apple Pascal program, they must be used 
consistently (they are ignored by the Apple Pascal Compiler!). 

If the Apple Pascal units have code in the intialization block, put it 
in a procedure called at the beginning of the program. 

To force segments to be resident, build a chain of dummy procedure calls 
that forces the loader to keep them all in core. The main program then 
becomes a procedure called by the top of the chain. Say we have 3 segments 
called SEGl, SEG2, and SEG3, and have put our main program into a procedure 
named MAIN_PRDGRAM . We can now force everything to be memory resident by 
adding the following procedures: 

(*$S SEGl*) 
Procedure Kludge 3; 
BEGIN 

Main__Program; 
END; 

(*$S SEG2*) 

Procedure Kludge2; 

BEGIN 

Kludge 3; 

END; 

(*$S SEG3*) 

Procedure Kludgel; 

BEGIN 

Kludge2 ; 

END; 

(*$S *) 

BEGIN 

Kludgel; 

END. (* end of main program *) 
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MPASLIB 

Various Pascal procedures and functions call the run-time library 
(MPASLIB.OBJ) . MPASLIB puts the parameters on the stack, followed by an 
index indicating which routine is to be called, and then traps to the 
monitor. For low level I/O, the monitor sends this information 
to the Apple II, which actually executes the I/O request. 

This section gives a complete list of the indices and parameters 
handled in this manner, with both their assembler mnemonic name and 
the name of the Pascal procedure which invokes them. If a parameter 
or returned address is 32 bits long, it is preceded in the drawing of 
the parameter list given below by the word LONG. 

Pascal-Name Assembler-Name Index 



WRITE(f,Ch) FWRTCHAR $8 



I (LONG) I 

I Return Address | 

I (LONG) 1 

I File Pointer | 




SP— > 

Note: WRITE(f ,Ch,i,j) is implemented as three calls on FWRTCHAR, 
one for each entity. Conversion (integer to char, for example) 
is done in the run-time library routines. 



WRITELN(f) FWRITELN $C 12 



I (LONG) I 

+ + 

I Return Address I 

I (LONG) I 

+ - + 

i File Pointer | 

I Index = $C | 

SP — > H H 
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READ(f ,Ch) 

I (LONG) I 

+ + 

I Func Result I 

I (LONG) I 

+ + 

I Return Address | 

I (LONG) I 

+ + 

I File Pointer I 

I Index - $10 | 

READLN(f) 

I (LONG) I 

+ + 

I Return Address | 

I (LONG) I 

+ + 

I File Pointer 1 

I Index - $1A | 



Page 11 



FREADCHR 



FREADLN 



$10 



16 



$14 



20 
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RESET and REWRITE FINIT $18 24 

+ H 

I (LONG) I 

+ - ■ + 

i File Pointer | 

I (LONG) I 

I Window Pointer | 

I Record Size I (-2 » text, -1 " file, >0 * //words per item) 

I (LONG) I 

+ + 

I Return Address I 
I Index - $18 | 

SP~> +———.———-.—+• 

FOPEN $1C 28 

I (LONG) I 

+ + 

I File Pointer | 

I (LONG) 1 

+ + 

I File Title I 

I Open Old (Bool) I 

I (LONG) I 

+ - + 

I Zero I 

I (LONG) I 
+ + 

I Return Address I 
I Index » $1C I 

Note: FINIT initializes the file buffer. FOPEN opens a new file 
(REWRITE) if Open Old is false. It opens an old file (RESET) 
if Open Old is true. 
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BLOCKREAD and BLOCKWRITE BLKIO $20 32 



I (LONG) I 

+ + 

I Function result I 

I (LONG) I 

I File Pointer | 

I (LONG) I 

+ + 

i Buffer Address I 

I Number of Blocks i 

I Block Number | (-1 - sequential) 

I Read (1)/Write( 0)1 



I (LONG) I 

+ + 

I Return Address i 



I Index » $20 



26-Jan-82 Bill Schottstaedt 



Confidential 

NEW(p) MNEW 

I (LONG) I 

i Return Address i 

I (LONG) I 

I Pointer Address | 

I Number of Words | 

+ „ H 

I Index »» $24 | 

MARK(p) MMRK 

I (LONG) I 

+ - >-- + 

I Return Address I 

I (LONG) I 
+ + 

I Pointer Address | 
I Index - $28 | 

RELEASE(p) MRLS 

+ }. 

I (LONG) I 

I Return Address | 

I (LONG) I 

+ + 

I Pointer Address I 

I Index » $2C | 
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$24 36 



$28 40 



$2C 44 



26-Jan-82 



Bill Schottstaedt 



Confidential 



Page 15 



MEMAVAIL 



ME]^ 



$30 48 



I (LONG) I 

+ + 

I Return Address | 
I and func result I 

I Index - $30 | 



SP~> 



UNITCLEAR(u) 

I (LONG) I 

+ + 

I Return Address | 
I Unit Number | 

I Index - $34 | 

UNITREAD 
UNITWRITE 

I (LONG) I 

+— — — — — — — — — + 

I Return Address | 

I Unit Number I 

I (LONG) I 
+ + 

i Buffer Address | 

I Number of Bytes | 

I Block Number | 

I Mode I 

I Index-$38 or $3C| 



UCLR 



$34 52 



UREAD 
UWRITE 



$38 
$3C 



56 
60 
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UNITBUSY(u) 



UBUSY 



$40 64 



I (LONG) I 

+ --■ -- + 

I Return Address I 
I and Func Result i 

I Unit Number I 

I Index - $40 | 



lORESULT 



$$I0RES 



$44 68 



I (LONG) I 

I Return Address I 

I and Func Result I 

I Index « $44 | 



CLOSE(f) FCLOSE $4C 76 

I (LONG) I 

+ > + 

I File Pointer I 

I Mode I (0-normal, 1-LOCK, 2-PURGE, 3-CRUNCH) 

I (LONG) I 

+ • + 

I Pointer Address I 

I Index - $4C | 
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MHALT $50 80 HALT 

+ \. 

I (LONG) I 

+ + 

i Return Address I 

I Index = $50 | 
SP— > H 1- 



MIOERR $54 84 



I (LONG) I 

+ + 

I Return Address I 

I Index - $54 | 
SP— > H 1. 



MGOTOXY $58 88 GOTOXY 

+ 1- 

I (LONG) I 

+ + 

I Return Address I 

I X coordinate | 

I Y coordinate | 

I Index - $58 | 
SP— > H h 
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RCERR $5C 92 (Range value error) 

I (LONG) I 

I Return Address | 

I Index » $5C | 



SCERR $60 96 (String index error) 

I (LONG) I 

+ + 

I Return Address I 

I Index - $60 | 
SP— > +-- ' 
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There are three indices to handle segment swapping: 
$$LOADIT $0 (loads a segment) 

+ 1. 

I (LONG) I 

I Fake Return Addr I 

I (LONG) I 

+ + 

I Return Address | 

I Index - $0 | 

$$UNLOAD $A (unload a segment) 

I Index = $4 | 

REMOVEl $48 (72) (used by GOTO to unload a segment) 

I (LONG) I 

+ + 

I Return Address | 

I Index - $48 | 
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MONITOR— APPLE II INTERFACE 

1) PROCEDURE UNITCLEAR(UNITNUMBER) J 

2) PROCEDURE UNITREAD(UNITNUMBER, ARRAY, LENGTH, BLOCKNUMBER, ASYNC); 

3) PROCEDURE UNITWRITE(UNITNUMBER, ARRAY, LENGTH, BLOCKNUMBER, ASYNC); 

4) FUNCTION UNITBUSY(UNITNUMBER) {BOOLEAN; 

The ASYNC parameter is ignored, and the UNITWAIT procedure is a no-op. 
The 10 sequence is: 

1) The 68000 sends an 10 command byte followed by a one byte 
unit number. 

2) If the command byte is a UNITREAD or UNITWRITE, the 
68000 also sends: 

a) 4 byte address 

b) 2 byte length 

c) 2 byte block number 

3) The Apple II interprets the 10 command as follows: 

UNITCLEAR — A UNITCLEAR is issued for the unit 
specified. lORESULT is sent to the 
68000. 

UNITREAD — A UNITREAD is issued for the unit 
specified. PUTSTREAM is used to 
write data into the 68000. lORESULT 
is sent to the 68000. 

UNITWRITE — GETSTREAM is used to read data from 

the 68000. A UNITWRITE is issued for 
the unit specified. lORESULT is sent 
to the 68000. 

UNITBUSY — If the unit number is 1 or 2, NOT 
KEYPRESS is returned, otherwise 
false is returned. lORESULT is 
sent to the 68000. 

4) The Apple II returns the lORESULT, then waits for the next 
I/O command byte. The 68000 continues execution. 



26-Jan-82 Bill Schottstaedt 



Confidential 



Page 21 



10 Command Summary: 

UNITCLEAR 
UNITREAD 
UNITWRITE 
UNITBUSY 



1 UNITNUM lORSLT 

2 UNITNUM ADDR COUNT BLKNUM RDDATA lORSLT 

3 UNITNUM ADDR COUNT BLKNUM WRDATA lORSLT 

4 UNITNUM BUSYFLAG lORLST 



whe re : 



UNITNUM 

ADDR 

COUNT 

BLKNUM 

RDDATA 

WRDATA 

BUSYFLAG 

lORSLT 



1 byte unit number 
4 byte address 

2 byte count 

2 byte block number 

byte stream to the Apple II 

byte strea from the Apple II 

2 byte function result 

2 byte lORESULT 



SUMMARY OF INDICES 



Name 


Index 


Parameters 






$$LOADIT 


$0 


1 (Rtn adr) 


Rtn adr 


Index 




$$UNLOAD 


$4 


Index 








FWRTCHAR 


$8 


Rtn adr 


File Ptr 


Char 


Index 


FWRITELN 


$c 


Rtn adr 


File Ptr 


Index 




FREADCHR 


$10 


Rtn adr 


Result 


File Ptr Index 


FREADLN 


$14 


Rtn adr 


File Ptr 


Index 




FINIT 


$18 


File Ptr 


Window 


RecSize 


Rtn adr Index 


FOPEN 


$1C 


File Ptr 


Title 


Old 


Zero Rtn adr Index 


BLKIO 


$20 


Result 


File Ptr 


Buffer 


Blocks Block# Read /Write 






Rtn adr Index 






MNEW 


$24 


Rtn adr 


Ptr adr 


Words 


Index 


MMRK 


$28 


Rtn adr 


Ptr adr 


Index 




MRLS 


$2C 


Rtn adr 


Ptr adr 


Index 




MEMA 


$30 


Result 


Rtn adr 


Index 




UCLR 


$34 


Rtn adr 


Unit# 


Index 




UREAD 


$38 


Rtn adr 


Unit# 


Buffer 


//Bytes Block# Mode Index 


UWRITE 


$3C 


Rtn adr 


Unit# 


Buffer 


#Bytes Block// Mode Index 


UBUSY 


$40 


Rtn adr 


Unit# 


Index 




$$IORES 


$44 


Rtn adr 


Index 






REMOVEl 


$48 


Rtn adr 


Index 






F CLOSE 


$4C 


File Ptr 


Mode 


Rtn adr 


Index 


MHALT 


$50 


Rtn adr 


Index 






MIOERR 


$54 


Rtn adr 


Index 






MGOTOXY 


$58 


Rtn adr 


X Coord 


Y Coord 


Index 


RCERR 


$5C 


Rtn adr 


Index 






SCERR 


$60 


Rtn adr 


Index 
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MPASLIB ROUTINES 

%%%TEEM 

%_TERM 

%%%MATH 

%I MUL4 
%IJDIV4 
%rjlOD4 

%%%MOVE 

%J!OVEL 
%J10VER 
% FILLC 
%~SCANE 

rrscMn 

%%%TRING 

%■ CAT 
%~POS 
% COPY 
%~DEL 
%^INS 

%%%SCOMP 

%S_NE 
%S EQ 

%s"'gt 
%s"le 

%S~LT 

%s]]ge 

%%%SET 

%_INTER 

%^SING 

%^UNION 

%JDIFF 

%__RDIFF 

%_RANGE 

%_ADJ 

%_SETNE 

%_SETEQ 

%_SETGE 

%J3ET3:Z 

%%%TEXT 

%W. LN 
%W~C 
%W STR 
%W"PAOC 
%W- I 

%w"'b 

%J?AGE 
%R C 
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%R__LN 
%R_PAOC 
%R_STR 
%R_I 

%%%MISC 

%__HALT 

%. lOERR 

%~GOTOXY 

%_LSTSG 

%_GOTO 

%%%I0 
%_REWKr 
%. RESET 
%"CLOSE 

%_EOLN 

%__BLKRD 

%_BLKWR 

%JJBEAD 

%_UWRIT 

%_IORES 

%_UCLR 

%_UBUSY 

% GET 

%~PUT 

%_UPARR 

%_SEEK 

%%%MEM 

%• NEW 
^MARK 
%■ RELSE 

%"memav 



FP%DEFAU 0010 
%%%BASE 
$DECX 
%W_F 
%W_E 
%XPOT 
%XMUL 
%XINT 
%XDIV32 
%XDIV 
%XDEC 
%XCOMP 
X%TOS 
X%TODEC 
X%STO 
X%POT 
X%MUL 
X%MINUS 



000000 
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X%KIND 

X%INT 

X%I)IV 

X%DEC 

X%COMP 

STRINGTO 

STRING%R 

REALTOST 

REAL%STR 

FPDEFAUL 

$$$INIT 

% BEGIN 

^"END 

%~INIT 

%%%RANGE 

%_RCHCK 
%_SRCHK 

SWAPMODE 

SWAPTRAP 

SWAPEXCE 

%%%REAL 

UNPACKRB 
UNPACKRA 
PACKR 
%_TRUNC 
% ROUND 
%ri>WR10 
%I32F32 
%F SUB 

%f'"neg 

%FJ!ffi 
%F MUL 

%f"lt 
%f''le 
%f"gt 

%FJ3E 
%F EQ 

%f"div 

%FJU)D 

%F_ABS 

%F32SUB 

%F32NE 

%F32MUL 

%F32LT 

%F32LE 

%F32I32 

%F32GT 

%F32GE 
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%F32EQ 
%F32DIV 
%F32ADD 
%I FLT 
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LINKER FILE LAYOUT 

Tlie linker tries to handle object files created by several different 
versions of the compiler and previous versions of the linker, created 
for several different versions of the hardware. Not surprisingly, 
object file formats are a mess. There are three basic types of object 
file: 

OldExecutable — release 1.0 to 5.0 compilers, 

either machine 

PhysicalExec — release 6.0 compiler or later, 

release 1.0 to 5.3 linkers, 
either machine 

Executable — release 6-0 compiler or later, 

release 6.0 linker or later, 
new hardware 

The release numbers refer to Monitor releases. The new linker (release 
6.0 or later) can handle intrinsic units, and produces a version control 
record. There are two distinctly different "old" linkers: the OldLlnker 
and the HackedLlnker. Some attempt is made below to distinguish object 
files created by these linkers. 

An additional source of woe is the group of blocks created by the symbolic 
debugger. Because these undergo constant change, the documentation is 
always wrong. The information given here was correct at some point in 
September, 1981. 
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As used below, * means or more, + means 1 or more. 



<LinkFile> 


: :« 


<ModuleFile> 


(* 




::- 


<LibraryFile> 


(* 
'* 




J j« 


<UnitFile> 
<IntrinLibFile> 


(* 
(* 




::- 


<ExecuteFile> 


(* 


<ModuleFile> 


• • 


<Module>* 
EOFMark 




<LibraryFile> 


• • 


UbModule+ 
LibEntry+ 
<Module>+ 
Text Block* 
EOFMark 




<UnitFile> 


• • 


UnitBlock 
<Module>+ 
TextBlock 
EOFMark 




<IntrinLibFile> 




VersionCtrl 
UnitLocation 
SegLocation 
Files Block 
EOFMark 




<ExecuteFile> 


• • 


<Execut ab leHeade r > 
<Module>* 
<OtherBlock>* 
EOFMark 





main program output from compiler *) 
or Assembler *) 

output of LIBRARY program ~ no *) 
longer fully supported *) 
unit output from compiler *) 
*INTRINSIC.LIB itself — only *) 
one per boot disk *) 
output of Linker *) 



<Execut ab leHeade r> 



OldExecutable (* old linker *) 
PhysicalExec (* HackedLinker *) 



VersionCtrl 

Executable 

VersionCtrl 

UnitTable 

Executable 

SegmentTable 

UnitBlock* 



(* new linker without intrinsic units *) 



(* new linker with intrinsic units *) 
(* one per unit linked into this file *) 



<Module> 



ModuleName 

<OtherModBlock>+ 

EndBlock 



<OtherModBlock> 



EntryPoint 

External 

St art Ad dress 
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CodeBlock 

Relocation 

CommonReloc 

CommonDef 

ShortExternal 



<OtherBlock> 



DebugSjrmbols 

DebugEntry 

DebugCommon 



There may also be an ExecIUUnit ("Executable Intrinsic Unit Unit"?): 

: :» VersionCtrl 
UnltTable 
SegmentTable 

You can sometimes tell which linker produced the file you are dealing 
with by looking at the first blocks. The newest linker always puts 
the VersionCtrl block first, the HackedLinker started with either 
the PhysicalExec or the Executable block, and the old linker started with 
the Executable block. The Pascal definitions of all the blocks given 
below can be found in OBJIO.TEXT. 

The Segment and UnitTable blocks are found in object files that have linked 
intrinsic unit code segments. The Loader then uses the SegLocation, 
UnitLocation, and FilesBlock blocks in INTRINSIC.LIB to locate these 
intrinsic units. 

Module Name : 

+« 1 1 1 1 I H ...).. „4 .. .| m| — 1 1 - I — h—j — I I ^ I ■■ I - 1 — I I . . I I — I '\ !■■ i ■ ! + 

I SO i size I module name I segment name I csize I comment ••• I 

+ H— H 1 1 " I I ' I I "I I - l-l -I ■ I I l-l - l -h - 1 "I 1 11 -I- I -I -I - I h 

12 4 5 12 13 20 21 24 size 

80 - Hexadecimal 80 

size - Number of bytes in this block 

module name - Blank padded ASCII name of this module 

segment name- ASCII name of segment in which this module will reside 

csize - Number of bytes in the code block for this module 

comment - Arbitrary information. Ignored by the Linker. 
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EndBlock: 




81 - Hexadecimal 81 

size - Number of bytes in this block (always 000008) 

csize - Numer of bytes in the code block for this module 



EntryPoint : 

+- 

I 82 I size 

12 4-5 

82 

size 

link name 
user name 
loc 

comment 



link name I user name I loc I comment 

12 13 20 21 24 25 size 

- Hexadecimal 82 

- Number of bytes in this block 

- Blank padded ASCII linker name of entry point 

- Blank padded ASCII user name of entry point 

- Location of entry point relative to this module 
(a zero based byte address within a segment) 

- Arbitrary information. Ignored by Linker 



External: 



+- f-i — I .. I . I -+H-H 



— H 



+-f-H— f— +- 



— h-f- l - I I 



I 83 
+ • 



size 
H- }- 



link name 
" i .. t - i . I I 



I user name 
I - 1 - I ■ I • I - 1 - 1 -■ i 



I ref 



1 I 



ref n 






1 



4 5 



12 13 



20 21 24 



size 



83 - Hexadecimal 83 

size - Number of bytes in this block 

link name - Blank padded ASCII linker name of external reference 

user name - Blank padded ASCII user name of external reference 

ref 1 - Location of first reference relative to this block 

... - Other references 

ref n - Location of last reference 
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StartAddress; 

I 84 I size I start | gsize I comment .«. i 

1 2 4 5 8 9 12 13 size 

84 - Hexadecimal 84 

size - Number of bytes in this block 

start - Starting address relative to this module 

gsize - Number of bytes in the global data area 

comment - Arbitrary information. Ignored by the Linker. 

CodeBlockx 

I 85 I size I addr | object code • • • I 



1 



4 5 



8 9 



size 



85 - Hexadecimal 85 

size - Number of bytes in this block 

addr - Module relative address of first byte of code 

object code- The object code. Always an even number of bytes 



Relocation: 



86 I size I ref 1 I 
1 2 4 5 8 



H-+~J— +-♦- 




86 - Hexadecimal 86 

size - Number of bytes in this block 

ref 1 - Location of first address to relocate 

... - Other addresses 

ref n - Location of last address to relocate 
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ConunonReloc: 



+■ 
I 87 
H 



size 



common name 
I I ■ ■ ! — t - I " I — 



ref 1 



I ref n 



4 5 



12 13 



16 



size 



87 - Hexadecimal 87 

size - Number of bytes in this block 

common name -> Blank padded ASCII name of common block 

ref 1 - Location of first reference relative to this module 

... - Other references 

ref n - Location of last reference 



CommonDef : 



88 



+— 
1 



size I common name I dsize I comments ... i 



4 5 



12 13 



16 17 



size 



88 - Hexadecimal 88 

size - Number of bytes in this block 

common name " Blank padded ASCII name of common area 

dsize ' Number of bytes in this common data area 

comments - Arbitrary information. Ignored by the Linker. 

Short External: 



I 89 I size 
i 1 h— H 



-IH ' H 



link name 
- 1 ■■ I - 1 - I - 1 



+- f-4 



user name 
' I I " I ■ I 



ref 



— f- 



4 5 



12 13 



20 21 22 



89 - Hexadecimal 89 

size - Number of bytes in this block (always 000016) 

link name - Blank padded ASCII linker name of external reference 

user name - Blank padded ASCII user name of external reference 

ref - Location of reference 
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OldExecutable: 



I 8F I size I JT laddr | JT size 
12 4 5 8 9 12 13 



data size I jump table 

16 size 



8F - Hexadecimal 8F 

size - Number of bytes in this block 

JT laddr - Absolute load address of jump table 

JT size - Number of bytes in jump table 

data size «- Total number of bytes in global common data areas 

jump table - The jump table itself, including the executable 

code for the loader. This table is in the old 

jump table format (see below) . 



LibModule : 



+ 1. — I — J. — ^_^^- ^ .,,^ | . ,..| . „ i , i , |, „ i i i , ^ , i ■ ., i . i ■ i ■ i -h h i - i - 1 - 1 - 1 

i 90 i size I module name I msize i caddr | taddr i tsize I ..• 



4 5 



12 13 16 17 20 21 24 25 



28 



//mods I mod 1 



mod n 



29 30 31 



32 



size 



90 - Hexadecimal 90 

size - Number of bytes in this block 

module name - name of this module 

msize - Size of code for this module in bytes 

caddr - Disk address of module 

taddr - Disk address of text block, if any (0 otherwise) 

tsize - Size of text block 

#mods - Number of other modules referenced by this module 

mod 1 - Number of first module referenced 

.•• - Other module numbers 

mod n - Number of last module referenced 
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LibEntry; 



I 91 I size I link name 
+ J. — H — I- — I — I ■ I I I I ■ ! 



I module | address I 



A 5 



12 13 



14 15 



18 



91 - Hexadecimal 91 

size - Number of bytes in this block (always 000012) 

link name - Blank padded ASCII link name of entry point 

module - Module in which entry point resides 

address - Relative address of entry point to that module 



UnitBlock: 



+— 



I 92 I size I unit name I caddr i taddr i tsize | gsize I type I 
1 2 4 5 12 13 16 17 20 21 24 25 28 30 



92 

size 

unit name 

caddr 

taddr 

tsize 

gsize 

type 

PhysicalExec: 

H 1 1 — 



- Hexadecimal 92 

- Number of bytes in this block (always OOOOIE) 

- Name of this unit 

- Disk address of module 

- Disk address of text block 

- Size of text block 

- Number of bytes of globals in this unit 

- unit type: O-regular, l"intrinsic, 2-shared 



H — 



+ ! 



t' l - l-l ■ i ■ I 



H 1 h 



97 i size I JT laddr IJTsize I dsize I msize | JTkSegDeltal . 
2 4 5 8 9 13 17 21 25 



StkSegDeltal Jump Table ... 
25 29 size 



97 

size - 
JT laddr 
JTsize 

dsize - 
msize - 
JTSegDelta - 
StkSegDelta- 
jump table - 



Hexadecimal 97 

Number of bytes in this block 

Absolute load address of jump table 

Number of bytes in jump table 

Total number of bytes in regular units global data areas 

Size of main program global data area 

Distance from base of segment to beginning of data pointers 

see below 

The jump table itself, including the executable 

code for the loader. This table is in the old 

jximp table format (see below). 
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Executable: 




JT Laddr IJTSize i dsize I msize i JTSegDeltalStkSegDelta 

-H 1 1 1- - ^. -.{■-{. -I- - I ■■ l-n I - I , |.,+^f^ 1 1 1 1 1 h— f— 



8 9 



13 



17 



21 



25 



I Dyn Stack i Max Stack | Min Heap | Max Heap I Jump Table . • • 
29 33 37 41 45 size 



98 

size - 
JT laddr 
JTsize 
dsize - 
msize - 
JTSegDelta - 
StkSegDelta- 
Dyn Stack - 
Max Stack - 
Min Heap - 
Max Heap - 
jump table - 



Hexadecimal 98 

Number of bytes in this block 

Absolute load address of jump table 

Number of bytes in jump table 

Total number of bytes in regular units global data areas 

Size of main program global data area 

Distance from base of segment to beginning of data pointers 

Distance from JTSegDelta to A5 at runtime 

Initial dynamic stack size 

Maximum total stack size 

Initial heap size 

Maximum total heap size 

The jump table itself, including the executable 

code for the loader. This table is in the new 

jump table format (see below). 



VersionCtrl: 



+— 



+ -I-I- I - I 



+■ I I ■ ■ I -f 



— +-H— H-f-H— + 



I 99 I Size 
+- + — \- — h 



SrcMinl SrcMaxI CmpMinI CmpMaxI LnkMinI LnkMaxI 
■ I ■ I - 1 ... I - 1 . - 1 - 1 - [ - 1 - 1 , 1 - 1 - 1 - K H-H-" I - 1 - )- 1 . 1 - 1 - 1 ~ \ 



1 



99 

Size 

SrcMin 

SrcMax 

CmpMin 

CmpMax 

LnkMin 

LnkMax 



13 



17 



21 



- Hexadecimal 99 

- Always 00001 C 

- Minimum source version number 

- Maximum source version number 

- Minimum compiler version number 

- Maximum compiler version number 

- Minimum linker version number 

- Maximum linker version number 



25 
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SegmentTable: 



I 9A I size 

+ H — I 1- 



4 5 



Nsegs I seglnfol | • 
7 25 



seglnfoN | 
size 



9A - Hexadecimal 9A 

size - Number of bytes in segment table block 
NSegs - Number of segment descriptors in table. Each Seginfo 
record is of the form: 



I Seg Name 

1 

Seg Name 
SegNumber 
Versionl 
Version2 



SegNumber I Versionl | Version2 

9 11 15 18 

Segment Name 
MMU number (currently) 
Version control info 
Version control info 



UnitTable: 



9B I size I NUnitsI maxunit lUnitlnfol I ... lUnitlnfoN | 

12 4 5 7 9 21 size 

9B - Hexadecimal 9B 

size - Number of bytes in unit table block 

NUnits - Number of unit descriptors in table, 
maxunit ~ maximum unit number. If, for example, units number 
1, 7, and 11 are present, nunits"3 and maxunit"ll. 

Each Unitinfo record is of the form: 



Uni tName 



Uni tName 
UnitNum 
Unit type 



I UnitNum I Unit type I 

9 10 11 12 

Unit Name 

Index into data pointer table 
0»Regular Unit (an error) 
1 -Regular Intrinsic Unit 
2-Shared Intrinsic Unit 
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SegLocation: 



9C I size I Nsegs I seglnfol 



1 



4 5 



35 



seglnfoN | 
size 



9C - Hexadecimal 9C 

size - Number of bytes in segLocation block 
NSegs " Number of segment descriptors in table. Each Seginfo 
record is of the form: 



Seg Name jSegNumberi Versionl I Version2 

9 11 15 18 



UnitLocation: 



+ 

I 9D 
+- 



size 



9D 

size 
NUnits 



... I FileNo I FileLoc I CSize I 

19 21 25 

Seg Name - Segment Name 

SegNumber - MMQ number (currently) 

Versionl - Version control info 

Version2 - Version control info 

FileNo - Index into the Files Block file table 

FileLoc - Byte location within file of CodeBloclc 

CSize - code size? 



NUnits I Unit Infol 
4 5 7 23 



lUnitlnfoN | 
size 



- Hexadecimal 9D 

- Number of bytes in unitLocation block 

- Number of unit descriptors in table. Each Unitinfo 
record is of the form: 






^ — f. 



I UnitName 
-H I I I I I 



Uni tName 
UnitNum 
Unit type 
Data Size 



UnitNum I Unit type | Data Size 

1 1 f. 1 \. 1«.-4™. 



10 



11 



12 13 



16 



- Unit Name 

- Index into data pointer table 

- See UnitTable above 

- Size in bytes of global data area for unit 
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FilesBlock: 



^ K 1- 1 1 H 1 — I - I ,- I - I ■■ I .H 

I 9E I Size I nFiles I Filelnfol I ... I FilelnfoN | StringTable ... I 

12 4 5 6 7 13 size 

9E - Hexadecimal 9E 

nFiles - number of file descriptors in block. Each Fileinfo record 
has the form: 

i FileNo I NameAddr I 



FileNo - Index into FilesBlock table 

NameAddr - Byte address within this file (*INTRINSIC.LIB) 
of a Pascal string 

StringTable - Table of file names 
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DebugSymbols: 




12 13 



20 21 



.«•! proc syms | proc stmt | proc node 
— — I i. — f. — I 1. — H — |«-j 1 1 1 j^ 



1 ^ , II I I „ ,1 ji _ ^,|_^ 

uses size |.«. 



30 



33 34 



37 38 



41 42 



45 



CO 



- hexadecimal $C0 



size - Size in bytes of this record (including CO and size) 
proc name - Name of the module these symbols are for 
seg name - Name of the segment this module is in 
proc base - Low core address for this procedure 
proc syms - Core address of root of symbol table for this proc 
proc stmt - Core address of root of stmt tree for this proc 
proc node - Core address of procedure definition node record 
uses size - File size of Uses definition section in bytes (not including 
hole top and hole base) 
if uses size > then 



—4- H 1 H \ h 



. I hole base I hole top I map base i map top I map name 
-+— f — 8- — H — f— H h— f — h — I- 1 + 1- 1 — H- — H 1— l~+-f-f— 



I proc heap 



46 

hole base 
hole top 

map base 
map top 
map name 
proc heap 



49 50 



53 54 



57 58 



61 62 



69 



- Lowest core address of used units' symbols 

- Highest core address of used units' symbols 
(UsesSize bytes of these records one per used unit) 

- Core address of base of this used units symbols 

- Core address of top of this used units symobls 

- Name of this used unit 

- heap for this proc (starting at proc base) 



DebugEntry : 
I CI I size 



proc name | entry seg I entry loc | comment.. 
4 5 12 13 16 17 20 21 



CI - hexadecimal $C1 

size - Size in bytes of this record (including CI and size) 

proc name - Name of the module this is entry point for 

entry seg - Segment number of this proc's entry point 

entry loc - Offset within the segment of this proc's entry point 

comment - Arbitrary information ignored by the Linker 
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DebugCommon : 



I C2 i size I unit name 
+ J. 1- (. 1— H — f—H — h-^f— ^ — H 



I common base i comment . . . 



4 5 



12 13 



16 



C2 - hexadecimal $C2 

Size - Size in bytes of this record (including CI and size) 
unit name - Name of the unit this is common area definition of 
common base - Core address of base of common area of this unit 



comment 



- Arbitrary information ignored by the Linker 



TextBlock; 



Textual data 



The operating system determines the format of the text block. The 
current version uses the UCSD format without the two initial header 
blocks. The text block is always stored on disk block boundaries. 



EOFMark: 



00 00 
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Intrinsic Unit Trap Handler 

(Uses the Line 1010 exception handler) 

Instruction Definitions: 

lUJSR xxxxxx 1010 0000 SSSS SSSO 

lUJMP xxxxxx 1010 OIXX SSSS SSSO 

lULEA xxxxxx, Ai 1010 lOAA ASSS SSSS 

lUPEA xxxxxx 1010 UXX SSSS SSSO 



0000 0000 0000 0000 {word address} 
0000 0000 0000 0000 {word address} 
0000 0000 0000 0000 {0 implied} 
0000 0000 0000 0000 {byte address} 



Note: xxxxxx represents a 24 bit logical address 

These instructions preserve all registers except CCR and Ai. 
The instruction lULEA xxxxxx, A7 is undefined. 
A's give a three bit a register descriptor. 
S's give a seven bit segment number. 

O's give a 17 bit offset (16 bits for lULEA with bit an implied 0) 
X's are don't care bits in the current decoding scheme. 

By the way, all four instructions use RTS to continue execution. 

The total cycles for the emulated JSR instruction equals 264 cycles - 

Note: 110 of the 264 cycles are consumed in preservation of registers. 



SDSEG .EQU $C00 
SDSEG2 .EQU $C04 



1st LONG common to all domains 
2nd LONG for saving AO register 



Note: SDSEG must be either common to all domains or at least common to the 
two domains of interest (ie. domain zero and the active user domain). 
This means that either the OS or the OS drivers can not reference any 
intrinsic units (since this code is not re-entrant due to the obvious 
hardware constraints). One way to allow both the OS and the OS 
drivers to use intrinsic units is to have the exception handlers push 
and pop SDSEG & SDSEG2 as though they were part of the machine state. 
Another way to solve this problem would be to recode the LINE 1010 
Trap handler so that it did not use absolute memory locations. If we 
assume that the user stack is always available to the LINE 1010 Trap 
handler then the trap handler could use the user stack at the expense 
of the extra pushes and pops. 



Regular procedure call/return overhead equals 258 cycles (ie. 30us) 





MOVE.L A3,-(A7) 




MOVE.W D4,-(A7) 




MOVE.W e(A6),-(A7) 




JSR e(A5) 




JMP $xxxxxx 
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TST.W e(A7) 

LINK A6 , #e 

MOVEM.L A3/A4/D4-D7,-(A7) 

• • • 

MOVEM.L (A7)+,A3/A4/D4-D7 

UNLK A6 

MOVE.L (A7)+,A0 

ADDQ.W #8,A7 

JMP (AO) 



( 12) 

( 20) 

( 58) 

( 52) 

( 12) 

( 12) 

( 4) 

( 8) 



Intrinisc procedure call/return overhead eqtials 490 cycles (ie. 76us) 



MOVE.L A3,-(A7) 

MOVE.W D4,-(A7) 

MOVE.W e(A6),-(A7) 

lUJSR e(A5) 

TST.W e(A7) 

LINK A6 , #e 

MOVEM.L A3/A4/D4-D7,-(A7) 

... 

MOVEM.L (A7)+,A3/A4/D4-D7 

UNLK A6 

MOVE.L (A7)+,A0 

ADDQ.W #8,A7 

JMP (AO) 



16) 
12) 
20) 
264) 
12) 
20) 
58) 

52) 

12) 

12) 

4) 

8) 



.PROC %%IUTRAP,0 

Starting with a Line 1010 ennalation exception 



(40) 



***** DOMAIN ZERO ***** 

Note: The following three lines will be in LISABUG (Might be copied into OS) 



LlOlO: MOVE.L 2(A7),SDSEG 

MOVE.L #$F80000,2(A7) 
RTE 



; Copy PC into shared data seg (32) 
; Set dest address to seg #124 (20) 
; Goto F80000 in user domain (20) 



***** USER DOMAIN ***** 

Note: The following lines will be in the jump table segment (ie. 124). 



F80000: MOVE.L A0,SDSEG2 

MOVE.L SDSEG,AO 

MOVE.W (A0),-(A7) 

AND.W #$0F00,(A7)+ 

BNE.S NOTJSR 

lUJSR: PEA 4(A0) 

MOVE.L (A0)+,-(A7) 



; Save AO (20) 

; Get PC from shared data seg (16) 

; Get high word of opcode (16) 

; Test for JSR (16) 

; Branch Not taken for lUJSR ( 8) 

; Push Return Address (20) 

; Push address of procedure (24) 
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lUJMP : 


MOVE.L 
RTS 


SDSEG2,A0 


NOTJSR: 


MOVE.L 


(A0)+,-(A7) 




BTST 


#3,(A7) 




BEQ.S 


lUJMP 




BTST 


#2,(A7) 




BEQ.S 


lULEA 


lUPEAi 


CLR.B 


(A7) 




MOVE.L 


A0,-(A7) 




MOVE.L 


SDSEG2,A0 




RTS 




lULEA: 


TST.L 


(A7)+ 




MOVE.L 


A0,-(A7) 




MOVE.L 


-(AO) ,A0 




ADD.L 


A0,A0 




MOVE.L 


A0,-(A7) 




CLR.B 


(A7) 




EXG 


A0,D0 




SWAP 


DO 




ADD.W 


DO, DO 




AND.W 


#$0E00,D0 




BNE.S 


NOTAO 




EXG 


AO,DO 




MOVE.L 


(A7)+,A0 




RTS 




NOTAO: 


MOVE.W 


#$4E75,-(A7) 




OR.W 


#$20 40, DO 




MOVE.W 


D0,-(A7) 




MOVE.L 


4(A7),D0 




PEA 


RETURN 




JMP 


4(A7) 


RETURN: 


ADD.W 


#8,A7 




EXG 


A0,D0 




MOVE.L 


SDSEG2,A0 




RTS 
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(16) 
.(16) 



Restore AO 

Goto the procedure 

Push the opcode and offset 

Test for JMP 

Branch taken for lUJMP 

Test for LEA 

Branch taken for lULEA 



Zap high byte 

Push address to continue execution 

Restore AO 

Continue execution 

Discard the opcode and offset, Ugh! 

Push address to continue execution 

Get the effective address in AO 

Shift left to make offset right 

Push the effective address 

Zap high byte 

Save DO in AO, Move eff addr into DO 

Get high word of opcode 

shift left to get Ai in bits 11.. 9 

extract Ai in bits 11.. 9 

Branch taken for cases 1..6 only 

Restore DO for case 

LEA xxxxxx,AO 

Continue execution 

RTS 

MOVE.L DO,Ai 

Can't execute it from DO so push it 

Get the effective address in DO 

Setup address for pushed RTS 

Go execute LEA xxxxxx,Ai 

Deletes the subr & eff addr 

Restore DO from AO for cases 1..6 only 

Restore AO 

Continue execution 



.END 
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THE OLD JUMP TABLE 

The format of the Old Jump Table was : 

$$TOP I Number of segments | 2 bytes 
I Main Segment Table I 32 bytes 
I Segment Table #2 j 32 bytes 



• • • 



1 Segment Table #n | 32 bytes 

I Dummy Table #n+l | 4 bytes 

I $_START Descriptor | 10 bytes 

I S#l P#2 Descriptor | 



o • • 



1 S#l P#n Descriptor 

+ 

I S#2 P#l Descriptor 



• • • 



I S#2 P#n Descriptor | 
I S#3 P#l Descriptor | 



• • • 



I S#m P#n Descriptor | 10 bytes 

-20 I Addr. of REMOVEl | 4 bytes 

-16 I Addr. of buffer | 4 bytes 

-12 I Addr. of code file I 4 bytes 

-8 I Active segment 1st | 4 bytes 



-4 I Addr. of $$T0P | 4 bytes 

$$L0ADIT I Object code | 

I necessary to load | 

I and execute a | 

I segment | 
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A segment table consisted of eight 32-bit values. They were: 



I Address of 1st descriptor I ~ 3 
I File Address of Segment I 4 ~ 7 



I Size of code in bytes I 8 ~ 11 

I Actual address in memory | 12—15 

I Scratch return address I 16 ~ 19 

I Segment reference count I 20 ~ 23 

I Active segment -list link I 24 — 27 

I Reserved I 28 — 31 



A descriptor was in one of two states, depending on the whether the 
segment was present in memory. These states were: 

Segment Not in Memory Segment In Memory 

I Relative offset of this i | Relative offset of this I 

T"^""" - ""■ '" I I """" ^ - - I 

I entry in its segment I | entry in its segment | 



JSR XXX. L I I JMP xxx.L 

Absolute address of I | Absolute address of 

h H 

$$LOADIT I I procedure as loaded 



A segment was loaded into memory when the first call to one of its 
procedures was executed. Such a call was always by way of a descriptor 
in the jump table. The JSR to $$LOADIT executed the loader from its 
entry point "$$LOADIT". The loader could tell which segment to load by 
comparing the place that it was called from with the limits on the 
segment entry tables found at the top of the jump table. The loader 
then loaded that segment, fixed up all JSR's to jump directly to the 
procedure instead of calling the loader, saved the calling routine's 
return address in the segment entry, patched the return address on the 
stack to return through the un-loader entry point "$$UNLOAD", and 
jumped to the procedure desired in the first place. 
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